Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Excel -> PDF drucken auto. Dateiname vergeben
 16.05.2012 06:44:51 frog91
NotSolved

Ansicht des Beitrags:
Von:
frog91		 Datum:
16.05.2012 06:44:51		 Views:
5150		 Rating:
     
Antwort:
  Ja
Thema:
VBA Excel -> PDF drucken auto. Dateiname vergeben

Hallo Leute!

Ich möchte mittels VBA aus einem Excel-Sheet eine PDF-Datei erzeugen.
Allerdings möchte ich den Dateinamen nicht jedes Mal eingeben sondern automatisch erzeugen lassen.

Das mit dem erstellen einer PDF-Datei funktioniert ja soweit allerdings gibt er mir nie meinen gewünschten Dateinamen ein.

hier mal mein code:

Public Sub Printing() 
    
    Dim sPDFName As String 
    Dim sPDFPath As String 

    druck = "B2:J49" 
    
    sPDFName = "test.pdf" 
    sPDFPath = "D:\" & sPDFName 
  
    Range(druck).Select 
    ActiveSheet.PageSetup.PrintArea = druck 
  
    Range("B2").Select 
    
    On Error Resume Next 
                          
    Application.ActivePrinter = "ScanSoft PDF Create! auf DocuCom PDF Port:" 
    
    ActiveWindow.SelectedSheets.PrintOut _ 
    ActivePrinter:="ScanSoft PDF Create! auf DocuCom PDF Port:", _ 
    PrintToFile:=True, Collate:=True, PrToFileName:=sPDFPath 


End Sub

Kann mir vll jemand sagen warum das programm, egal was ich in "PrToFileName:=" schreibe, immer den selben Datei namen vergibt? Es steht automatisch immer der Name der Excel-Datei im Feld Dateiname.

Danke im Voraus!

frog81

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Excel -> PDF drucken auto. Dateiname vergeben
 16.05.2012 06:44:51 frog91
NotSolved